home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
dtype
/
dfadt391.lha
/
dfadt
/
Install-DFADT
< prev
next >
Wrap
Text File
|
1995-03-18
|
3KB
|
110 lines
;
; $PROJECT: dfa.datatype
;
; $VER: Install 39.1 (18.3.1995)
;
; by
;
; Dirk Federlein, Brunnengasse 11a, 63741 Aschaffenburg, Germany
;
; (C) Copyright 1995
; All Rights Reserved !
;
(set #datatype (cat "dfa.datatype"))
(set #datatype-desc (cat "DFA"))
(set mode
(askchoice
(prompt @app-name)
(help @askchoice-help)
(choices "Install" "Remove")
)
)
(if mode
(set pmode "Remove")
(set pmode "Install")
)
; get classes dir
(set classdir
(askdir
(prompt "Please select the directory for classes")
(help @askdir-help)
(default "SYS:Classes")
)
)
; now do install or remove
(if mode
; Remove
(
; Show what we are doing
(working "Removing " @app-name)
; Remove the non-standard pieces
(delete (tackon classdir "datatypes" #datatype))
(delete (cat "devs:datatypes/" #datatype-desc) (infos))
; Don't want to use the confusing "Installation Complete" message
; when what we really did was remove things...
(message "The \"" @app-name "\" components "
"that you specified have been successfully removed")
(exit (quiet))
)
; Install
(
(working "Installing " @app-name)
; Install the classes
(copylib
(prompt (cat "Copying " @app-name))
(help @copylib-help)
(source (tackon "classes/datatypes" #datatype))
(dest (tackon classdir "DataTypes"))
(confirm)
)
; Install the descriptors
(copyfiles
(prompt "Copying the Descriptors")
(help @copyfiles-help)
(source "devs/datatypes")
(dest "DEVS:DataTypes")
(pattern "#?")
(infos)
(confirm)
)
; install include file
(copyfiles
(prompt "Copying source files")
(help @copyfiles-help)
(source "source")
(dest "sc:examples")
(pattern "#?")
(confirm)
)
; install AmigaGuide file
(copyfiles
(prompt "Copying AmigaGuide file")
(help @copyfiles-help)
(source "doc")
(dest "Guide:")
(pattern "#?")
(infos)
(confirm)
)
; Tell the system about the new descriptors
(run "C:AddDataTypes Refresh")
)
)
(set @default-dest classdir)